home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 80
/
64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64
/
new calc
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
569b
|
18 lines
1 printchr$(14):poke53280,6:poke53281,6
2 printt"[147]"tab(15)"[206]ew [195]alc"tab(54)"[163][163][163][163][163][163][163][163][163][163]"
3 printtab(17)"[214]on":printtab(9)"[200]ans-[202]uergen [218]iethmann"
4 print"[194]itte legen [211]ie die [199][197][207][211] 2.0"
5 print"[195]alcdiskette in das [204]aufwerk"
6 print"und druecken eine [212]aste"
7 wait 203,64,64:getn$:open15,8,15,"i":open1,8,2,"#2":restore
8 read n:ifn<0then10
9 print#15,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto8
10 on abs(n) goto 11,12,15
11 read lb:goto 8
12 ifsi=1thenprint#15,"u2";2;0;t;s
13 read t:read s
14 print#15,"u1"2;0;t;s:si=1:goto 8
15 print#15,"u2"2;0;t;s
16 close1::close15:print"[201]nstallation von [199]eo[195]alc 2.0 aufgehoben":end
17 data-2,13,19,-1,249,173,173,-2,18,0,-1,190,0,0,-3